(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    177407,       4268]
NotebookOptionsPosition[    174484,       4214]
NotebookOutlinePosition[    174922,       4231]
CellTagsIndexPosition[    174879,       4228]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"-", "Full"}]}]}], ",", " ", 
   RowBox[{
    RowBox[{"Imperfect", " ", "Altruism", " ", 
     RowBox[{"(", 
      RowBox[{"\[Omega]", "=", "0"}], ")"}]}], " ", "+", " ", 
    RowBox[{"Cooresponding", " ", "Homogenous", " ", 
     RowBox[{
      RowBox[{"version", "--"}], "--"}]}], "-"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.896934233086007*^9, 3.8969342385784063`*^9}, {
  3.899181415853004*^9, 3.899181439187718*^9}, {3.899182431109223*^9, 
  3.899182431608686*^9}, {3.8997894982705193`*^9, 3.8997895044474688`*^9}, {
  3.902726616882114*^9, 3.9027266785309258`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"d509ae2d-a616-4c07-902a-a4050b1a78ff"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"lrintrparm", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Import", "[", 
       RowBox[{
        RowBox[{"path", "<>", "\"\<Outputs/Tables/lrinterestrate.txt\>\""}], 
        ",", "\"\<Table\>\""}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "0.001"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matchlrirBaselinyearsparm", "=", "100"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"path", "<>", "\"\<Outputs/Data/sdByCountry.csv\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"worldSd", "=", 
   RowBox[{"WeightedData", "[", 
    RowBox[{
     RowBox[{"Rest", "[", 
      RowBox[{"temp", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
     RowBox[{"Rest", "[", 
      RowBox[{"temp", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], "]"}]}], ";", 
  RowBox[{"Clear", "[", "temp", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"stdevbetaparm", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{"Median", "[", "worldSd", "]"}], ",", "0.0001"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gNyearsFutureparm", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gNssparm", "=", 
   SuperscriptBox["0.99", "25"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"formattedData", "=", 
   RowBox[{
    RowBox[{"Rest", "[", 
     RowBox[{"Import", "[", 
      RowBox[{
       RowBox[{"path", "<>", "\"\<Outputs/Data/grPopGdppc.csv\>\""}], ",", 
       "\"\<Table\>\""}], "]"}], "]"}], "/.", " ", 
    RowBox[{
     RowBox[{"{", "s_String", "}"}], ":>", 
     RowBox[{"StringSplit", "[", 
      RowBox[{"s", ",", "\"\<,\>\""}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gNCutoffsparms", "=", 
   RowBox[{"ToExpression", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"formattedData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "#", "]"}], ">", "1"}], "&&", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "!=", "\"\<\>\""}]}], "&"}]}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"gYCutoffstarget", "=", 
   RowBox[{"ToExpression", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"formattedData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "#", "]"}], ">", "2"}], "&&", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "!=", "\"\<\>\""}]}], "&"}]}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], "]"}]}], ";", 
  RowBox[{"Clear", "[", "formattedData", "]"}], ";"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"gDCutoffsparm", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1775", ",", "0.9870600798536096`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1875", ",", "1.0691884259095668`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2000", ",", "1.2796887955836727`"}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Values", " ", "for", " ", "gDCutoffsparm", " ", "are", " ", "chosen", " ",
     "so", " ", "that", " ", "the", " ", "model", " ", "generates", " ", 
    "gYCutoffstarget", " ", "once", " ", "it", " ", "is", " ", "run"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gDyearsFutureparm", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gDssparm", "=", 
   SuperscriptBox["1.005", "25"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]parm", "=", "0.33"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]parm", "=", 
   RowBox[{"1", "-", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "0.1"}], ")"}], "25"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Piessparm", "=", "0.666667"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lrconsshparm", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Import", "[", 
       RowBox[{
        RowBox[{"path", "<>", "\"\<Outputs/Tables/lrconsshare.txt\>\""}], 
        ",", "\"\<Table\>\""}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nTypesParm", "=", "10000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"precisionparm", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inityearparm", "=", "1300"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currentyearparm", "=", "2000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"timeparm", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]parm", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"percentilesparm", "=", "8"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"datapieraw", "=", 
    RowBox[{
     RowBox[{"Rest", "[", 
      RowBox[{"Import", "[", 
       RowBox[{"path", "<>", "\"\</Outputs/Data/UkSurvProb.csv\>\""}], "]"}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datapie", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"datapieraw", "[", 
        RowBox[{"[", 
         RowBox[{
          FractionBox[
           RowBox[{"t", "-", "1550"}], "25"], "+", "1"}], "]"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "1550", ",", "2000", ",", "25"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"smoothedpie", "=", 
    RowBox[{"smoothSurvProbs", "[", 
     RowBox[{"datapie", ",", "1275", ",", "2000"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pop", "=", 
    RowBox[{
     RowBox[{"Rest", "[", 
      RowBox[{"Import", "[", 
       RowBox[{"path", "<>", "\"\<Outputs/Data/maddison_pop.csv\>\""}], "]"}],
       "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"N0parm", "=", 
    RowBox[{"pop", "[", 
     RowBox[{"[", "inityearparm", "]"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"world", " ", "population", " ", "in", " ", "inityearparm"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Nm1parm", "=", 
    RowBox[{"pop", "[", 
     RowBox[{"[", 
      RowBox[{"inityearparm", "-", "25"}], "]"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"world", " ", "population", " ", "in", " ", "inityearparm"}], " ",
     "-", "25"}], "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.9029859800220127`*^9, 3.9029860204269114`*^9, 3.902988739397147*^9, {
   3.902990767872355*^9, 3.902990768299939*^9}, {3.902992743956669*^9, 
   3.902992744480218*^9}, {3.9029988498036013`*^9, 3.902998850013608*^9}, 
   3.902999072851201*^9, 
   3.903001161407632*^9},ExpressionUUID->"066d31e5-d062-4dcb-b2c4-\
f76cb1956efa"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"inputDataFull", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"lrintr", "\[Rule]", "0.064"}], ",", 
      RowBox[{"matchlrirBaselinyears", "\[Rule]", "100"}], ",", 
      RowBox[{"stdevbeta", "\[Rule]", "0.0053"}], ",", 
      RowBox[{"gNCutoffs", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1700", ",", "1.030615194"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1875", ",", "1.118744119"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2000", ",", "1.356358323"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"gNyearsFuture", "\[Rule]", "100"}], ",", 
      RowBox[{"gNss", "\[Rule]", 
       SuperscriptBox["0.99", "25"]}], ",", 
      RowBox[{"gDCutoffs", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1775", ",", "0.9870600798536096`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1875", ",", "1.0691884259095668`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2000", ",", "1.2796887955836727`"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"gDyearsFuture", "\[Rule]", "100"}], ",", 
      RowBox[{"gDss", "\[Rule]", 
       SuperscriptBox["1.005", "25"]}], ",", 
      RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", 
      RowBox[{"\[Delta]", "\[Rule]", 
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "0.1"}], ")"}], "25"]}]}], ",", 
      RowBox[{"Pie", "\[Rule]", 
       RowBox[{"smoothedpie", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
      RowBox[{"Piess", "\[Rule]", "0.666667"}], ",", 
      RowBox[{"lrconssh", "\[Rule]", "0.75"}], ",", 
      RowBox[{"nTypes", "\[Rule]", "10000"}], ",", 
      RowBox[{"precision", "\[Rule]", "100"}], ",", 
      RowBox[{"inityear", "\[Rule]", "1300"}], ",", 
      RowBox[{"currentyear", "\[Rule]", "2000"}], ",", " ", 
      RowBox[{"time", "\[Rule]", "200"}], ",", 
      RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
      RowBox[{"Pie28", "\[Rule]", 
       RowBox[{"smoothedpie", "[", 
        RowBox[{"[", 
         RowBox[{"30", ",", "2"}], "]"}], "]"}]}]}], "}"}]}], ";"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.898829870918859*^9, 3.898829874647901*^9}, {
   3.8988299736610727`*^9, 3.898829984318378*^9}, {3.898830343232943*^9, 
   3.898830343369639*^9}, {3.8988329316313257`*^9, 3.898832931838258*^9}, 
   3.898832985766798*^9, 3.898833043781629*^9, {3.89883474080645*^9, 
   3.8988347507652483`*^9}, {3.898835271775127*^9, 3.898835276414925*^9}, {
   3.8991836765920343`*^9, 3.899183677219955*^9}, {3.899191838085609*^9, 
   3.899191838505727*^9}, {3.9028221993291683`*^9, 3.902822199372093*^9}, {
   3.9028225799461613`*^9, 3.9028225801542873`*^9}, {3.902822774613082*^9, 
   3.902822775122642*^9}, {3.902824322104455*^9, 3.9028243222057943`*^9}, {
   3.9028246009347267`*^9, 3.902824603788415*^9}, {3.902986097692812*^9, 
   3.902986099484765*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"48f5fabd-58c3-43be-ab4f-54118c1795db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputDataFull", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"lrintr", "\[Rule]", "lrintrparm"}], ",", 
     RowBox[{
     "matchlrirBaselinyears", "\[Rule]", "matchlrirBaselinyearsparm"}], ",", 
     RowBox[{"stdevbeta", "\[Rule]", "stdevbetaparm"}], ",", 
     RowBox[{"gNCutoffs", "\[Rule]", "gNCutoffsparms"}], ",", 
     RowBox[{"gNyearsFuture", "\[Rule]", "gNyearsFutureparm"}], ",", 
     RowBox[{"gNss", "\[Rule]", "gNssparm"}], ",", 
     RowBox[{"gDCutoffs", "\[Rule]", "gDCutoffsparm"}], ",", 
     RowBox[{"gDyearsFuture", "\[Rule]", "gDyearsFutureparm"}], ",", 
     RowBox[{"gDss", "\[Rule]", "gDssparm"}], ",", 
     RowBox[{"\[Nu]", "\[Rule]", "\[Nu]parm"}], ",", 
     RowBox[{"\[Delta]", "\[Rule]", "\[Delta]parm"}], ",", 
     RowBox[{"Pie", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"Piess", "\[Rule]", "Piessparm"}], ",", 
     RowBox[{"lrconssh", "\[Rule]", "lrconsshparm"}], ",", 
     RowBox[{"nTypes", "\[Rule]", "nTypesParm"}], ",", 
     RowBox[{"precision", "\[Rule]", "precisionparm"}], ",", 
     RowBox[{"inityear", "\[Rule]", "inityearparm"}], ",", 
     RowBox[{"currentyear", "\[Rule]", "currentyearparm"}], ",", " ", 
     RowBox[{"time", "\[Rule]", "timeparm"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", "\[Omega]parm"}], ",", 
     RowBox[{"Pie28", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"percentiles", "->", "percentilesparm"}], ",", 
     RowBox[{"Nm1", "->", "Nm1parm"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.902986044470607*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"34553011-52bc-4042-818c-44a6d4fd97ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "initialDistributionFull", ",", "allParmsFull", ",", 
     "averageBeta2000Full"}], "}"}], "=", 
   RowBox[{"findInitialDistributionHelper", "[", "inputDataFull", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.898829854274494*^9, 3.898829868276433*^9}, 
   3.898830023024802*^9, {3.899183679390503*^9, 3.899183685970492*^9}, {
   3.8991918417712708`*^9, 3.8991918537908077`*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"1a67d3eb-4615-4cd3-b8a0-2555aee4c337"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", "initpointsFull", "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.89694819077925*^9, 3.896948195724868*^9}, 
   3.8969496926954412`*^9, {3.899183667772627*^9, 3.899183668384245*^9}, {
   3.899191827855105*^9, 3.899191828274094*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"7a09d0ee-127f-4a1f-a484-d7a2ecc5fa63"],

Cell[BoxData[
 RowBox[{
  RowBox[{"initpointsFull", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["ax", 
       RowBox[{"-", "1"}]], "\[Rule]", "0.0515367090636632`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "0"], "\[Rule]", "0.05142049223576637`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "1"], "\[Rule]", "0.05390033722043359`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "2"], "\[Rule]", "0.056996716627197797`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "3"], "\[Rule]", "0.06010483397598251`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "4"], "\[Rule]", "0.0630474636320878`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "5"], "\[Rule]", "0.06578786571296263`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "6"], "\[Rule]", "0.06833317992838606`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "7"], "\[Rule]", "0.07070181801535466`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "8"], "\[Rule]", "0.07291299635211407`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "9"], "\[Rule]", "0.074983737797367`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "10"], "\[Rule]", "0.07692817243284637`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "11"], "\[Rule]", "0.07875726112363193`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "12"], "\[Rule]", "0.08047806669180498`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "13"], "\[Rule]", "0.08209172172965121`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "14"], "\[Rule]", "0.08358858177335746`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "15"], "\[Rule]", "0.08493749862290319`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "16"], "\[Rule]", "0.08606332681248481`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "17"], "\[Rule]", "0.08680359467237889`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "18"], "\[Rule]", "0.08684078128300296`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "19"], "\[Rule]", "0.08565892090604645`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "20"], "\[Rule]", "0.08274188418300378`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "21"], "\[Rule]", "0.07833041312518477`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "22"], "\[Rule]", "0.0741767442489639`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "23"], "\[Rule]", "0.07266028842406029`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "24"], "\[Rule]", "0.07474510452744326`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "25"], "\[Rule]", "0.07915857170240237`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "26"], "\[Rule]", "0.08374188340910697`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "27"], "\[Rule]", "0.08724769998111709`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "28"], "\[Rule]", "0.08952769636829032`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "29"], "\[Rule]", "0.09134999378498912`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "30"], "\[Rule]", "0.09239670608839176`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "31"], "\[Rule]", "0.09566189907421327`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "32"], "\[Rule]", "0.18611701186337912`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "33"], "\[Rule]", "0.24431729720960166`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "34"], "\[Rule]", "0.26858336762149587`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "35"], "\[Rule]", "0.2782167847087081`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "36"], "\[Rule]", "0.2824692409227543`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "37"], "\[Rule]", "0.2848234894031692`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "38"], "\[Rule]", "0.28649947022541256`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "39"], "\[Rule]", "0.2879154763800599`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "40"], "\[Rule]", "0.2892147285299846`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "41"], "\[Rule]", "0.2904469969318948`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "42"], "\[Rule]", "0.29163036302891676`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "43"], "\[Rule]", "0.2927721270111972`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "44"], "\[Rule]", "0.2938758780207405`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "45"], "\[Rule]", "0.2949438870893643`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "46"], "\[Rule]", "0.2959779198602719`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "47"], "\[Rule]", "0.29697951528437266`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "48"], "\[Rule]", "0.29795008362530795`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "49"], "\[Rule]", "0.29889094312156117`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "50"], "\[Rule]", "0.2998033356394804`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "51"], "\[Rule]", "0.30068843496624265`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "52"], "\[Rule]", "0.30154735237747643`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "53"], "\[Rule]", "0.3023811410672828`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "54"], "\[Rule]", "0.30319079999692305`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "55"], "\[Rule]", "0.3039772773679372`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "56"], "\[Rule]", "0.3047414738051982`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "57"], "\[Rule]", "0.3054842452931401`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "58"], "\[Rule]", "0.30620640589266596`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "59"], "\[Rule]", "0.306908730259645`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "60"], "\[Rule]", "0.3075919559825306`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "61"], "\[Rule]", "0.30825678575448673`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "62"], "\[Rule]", "0.3089038893937738`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "63"], "\[Rule]", "0.3095339057247941`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "64"], "\[Rule]", "0.31014744433101615`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "65"], "\[Rule]", "0.31074508718995725`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "66"], "\[Rule]", "0.3113273901994752`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "67"], "\[Rule]", "0.31189488460378456`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "68"], "\[Rule]", "0.31244807832687094`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "69"], "\[Rule]", "0.3129874572202985`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "70"], "\[Rule]", "0.31351348623180614`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "71"], "\[Rule]", "0.31402661050053615`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "72"], "\[Rule]", "0.31452725638425133`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "73"], "\[Rule]", "0.3150158324234429`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "74"], "\[Rule]", "0.31549273024683405`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "75"], "\[Rule]", "0.315958325422412`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "76"], "\[Rule]", "0.31641297825779013`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "77"], "\[Rule]", "0.3168570345533995`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "78"], "\[Rule]", "0.31729082631173183`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "79"], "\[Rule]", "0.3177146724056053`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "80"], "\[Rule]", "0.31812887920819627`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "81"], "\[Rule]", "0.3185337411873697`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "82"], "\[Rule]", "0.3189295414666491`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "83"], "\[Rule]", "0.3193165523549942`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "84"], "\[Rule]", "0.3196950358473916`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "85"], "\[Rule]", "0.3200652440981187`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "86"], "\[Rule]", "0.32042741986840423`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "87"], "\[Rule]", "0.3207817969500878`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "88"], "\[Rule]", "0.3211286005667631`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "89"], "\[Rule]", "0.3214680477537887`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "90"], "\[Rule]", "0.321800347718451`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "91"], "\[Rule]", "0.32212570218147607`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "92"], "\[Rule]", "0.3224443057010052`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "93"], "\[Rule]", "0.322756345980073`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "94"], "\[Rule]", "0.32306200415855735`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "95"], "\[Rule]", "0.32336145509050407`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "96"], "\[Rule]", "0.32365486760767376`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "97"], "\[Rule]", "0.3239424047700972`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "98"], "\[Rule]", "0.324224224104378`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "99"], "\[Rule]", "0.3245004778304338`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "100"], "\[Rule]", "0.324771313077321`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "101"], "\[Rule]", "0.3250368720887491`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "102"], "\[Rule]", "0.3252972924188508`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "103"], "\[Rule]", "0.3255527071187404`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "104"], "\[Rule]", "0.32580324491435975`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "105"], "\[Rule]", "0.32604903037607935`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "106"], "\[Rule]", "0.3262901840804937`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "107"], "\[Rule]", "0.3265268227648256`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "108"], "\[Rule]", "0.32675905947432726`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "109"], "\[Rule]", "0.32698700370304296`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "110"], "\[Rule]", "0.3272107615282771`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "111"], "\[Rule]", "0.3274304357390916`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "112"], "\[Rule]", "0.3276461259591372`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "113"], "\[Rule]", "0.32785792876410597`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "114"], "\[Rule]", "0.32806593779407545`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "115"], "\[Rule]", "0.32827024386099884`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "116"], "\[Rule]", "0.3284709350515842`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "117"], "\[Rule]", "0.3286680968257879`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "118"], "\[Rule]", "0.3288618121111379`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "119"], "\[Rule]", "0.32905216139308924`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "120"], "\[Rule]", "0.3292392228016045`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "121"], "\[Rule]", "0.32942307219413747`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "122"], "\[Rule]", "0.3296037832351956`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "123"], "\[Rule]", "0.3297814274726393`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "124"], "\[Rule]", "0.3299560744108741`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "125"], "\[Rule]", "0.3301277915810798`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "126"], "\[Rule]", "0.3302966446086143`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "127"], "\[Rule]", "0.3304626972777228`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "128"], "\[Rule]", "0.33062601159367594`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "129"], "\[Rule]", "0.33078664784245393`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "130"], "\[Rule]", "0.3309446646480871`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "131"], "\[Rule]", "0.3311001190277598`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "132"], "\[Rule]", "0.33125306644477714`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "133"], "\[Rule]", "0.33140356085948813`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "134"], "\[Rule]", "0.3315516547782582`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "135"], "\[Rule]", "0.3316973993005753`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "136"], "\[Rule]", "0.33184084416437015`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "137"], "\[Rule]", "0.3319820377896303`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "138"], "\[Rule]", "0.3321210273203808`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "139"], "\[Rule]", "0.33225785866510027`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "140"], "\[Rule]", "0.3323925765356414`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "141"], "\[Rule]", "0.33252522448471805`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "142"], "\[Rule]", "0.33265584494201855`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "143"], "\[Rule]", "0.33278447924900556`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "144"], "\[Rule]", "0.3329111676924543`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "145"], "\[Rule]", "0.3330359495367827`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "146"], "\[Rule]", "0.3331588630552245`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "147"], "\[Rule]", "0.33327994555989077`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "148"], "\[Rule]", "0.3333992334307657`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "149"], "\[Rule]", "0.33351676214368176`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "150"], "\[Rule]", "0.3336325662973118`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "151"], "\[Rule]", "0.33374667963922233`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "152"], "\[Rule]", "0.33385913509102005`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "153"], "\[Rule]", "0.3339699647726327`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "154"], "\[Rule]", "0.3340792000257544`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "155"], "\[Rule]", "0.33418687143649206`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "156"], "\[Rule]", "0.3342930088572394`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "157"], "\[Rule]", "0.33439764142781436`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "158"], "\[Rule]", "0.3345007975958833`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "159"], "\[Rule]", "0.334602505136702`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "160"], "\[Rule]", "0.3347027911721994`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "161"], "\[Rule]", "0.3348016821894291`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "162"], "\[Rule]", "0.3348992040584119`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "163"], "\[Rule]", "0.33499538204939283`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "164"], "\[Rule]", "0.3350902408495351`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "165"], "\[Rule]", "0.33518380457907176`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "166"], "\[Rule]", "0.3352760968069336`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "167"], "\[Rule]", "0.33536714056587635`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "168"], "\[Rule]", "0.3354569583671221`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "169"], "\[Rule]", "0.3355455722145351`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "170"], "\[Rule]", "0.3356330036183496`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "171"], "\[Rule]", "0.33571927360846865`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "172"], "\[Rule]", "0.33580440274735673`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "173"], "\[Rule]", "0.33588841114255874`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "174"], "\[Rule]", "0.3359713184589068`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "175"], "\[Rule]", "0.3360531439305499`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "176"], "\[Rule]", "0.33613390637312696`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "177"], "\[Rule]", "0.3362136241968966`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "178"], "\[Rule]", "0.33629231542288085`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "179"], "\[Rule]", "0.33636999770729087`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "180"], "\[Rule]", "0.33644668838770597`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "181"], "\[Rule]", "0.33652240458546995`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "182"], "\[Rule]", "0.3365971634523691`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "183"], "\[Rule]", "0.33667098278637764`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "184"], "\[Rule]", "0.3367438825895748`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "185"], "\[Rule]", "0.33681588902761544`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "186"], "\[Rule]", "0.3368870445025753`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "187"], "\[Rule]", "0.33695743326862043`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "188"], "\[Rule]", "0.3370272465165291`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "189"], "\[Rule]", "0.3370969475645344`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "190"], "\[Rule]", "0.337167690649584`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "191"], "\[Rule]", "0.3372423813735217`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "192"], "\[Rule]", "0.3373283583740107`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "193"], "\[Rule]", "0.33744416308396613`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "194"], "\[Rule]", "0.3376365769541506`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "195"], "\[Rule]", "0.3380231669781013`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "196"], "\[Rule]", "0.33889599416647687`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "197"], "\[Rule]", "0.3409532803904064`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "198"], "\[Rule]", "0.34563178777931525`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "199"], "\[Rule]", "0.3538090557002782`"}], ",", 
     RowBox[{
      SubscriptBox["ax", "200"], "\[Rule]", "0.3454120042357886`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "0"], "\[Rule]", "0.0006181478876528716`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "1"], "\[Rule]", "0.0007176254565546885`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "2"], "\[Rule]", "0.0008553188457151106`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "3"], "\[Rule]", "0.001010751767201368`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "4"], "\[Rule]", "0.001175208356817199`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "5"], "\[Rule]", "0.0013446480712243955`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "6"], "\[Rule]", "0.0015170542841830086`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "7"], "\[Rule]", "0.0016913015948915983`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "8"], "\[Rule]", "0.001866665858310989`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "9"], "\[Rule]", "0.0020426103142373512`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "10"], "\[Rule]", "0.002218682421656546`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "11"], "\[Rule]", "0.0023944434233013102`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "12"], "\[Rule]", "0.0025693841820609497`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "13"], "\[Rule]", "0.0027427797704446`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "14"], "\[Rule]", "0.0029134072705494017`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "15"], "\[Rule]", "0.0030789928984737078`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "16"], "\[Rule]", "0.0032351735906501417`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "17"], "\[Rule]", "0.0033737498723833805`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "18"], "\[Rule]", "0.003480495584691233`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "19"], "\[Rule]", "0.0035349449755150814`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "20"], "\[Rule]", "0.003519552410157186`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "21"], "\[Rule]", "0.003448168915778845`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "22"], "\[Rule]", "0.003404019969034509`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "23"], "\[Rule]", "0.0035295164015226753`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "24"], "\[Rule]", "0.003921537674350774`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "25"], "\[Rule]", "0.004531537132298131`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "26"], "\[Rule]", "0.005203079529913662`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "27"], "\[Rule]", "0.005792120917945638`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "28"], "\[Rule]", "0.006245660033635138`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "29"], "\[Rule]", "0.006608381913618183`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "30"], "\[Rule]", "0.006875534084588922`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "31"], "\[Rule]", "0.007033770808100045`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "32"], "\[Rule]", "0.005720460880637241`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "33"], "\[Rule]", "0.013084069222520143`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "34"], "\[Rule]", "0.01751624605890469`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "35"], "\[Rule]", "0.019606051145215797`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "36"], "\[Rule]", "0.020658467481960312`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "37"], "\[Rule]", "0.02132051526847061`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "38"], "\[Rule]", "0.02184117662400587`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "39"], "\[Rule]", "0.022309256260394757`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "40"], "\[Rule]", "0.02275566777675902`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "41"], "\[Rule]", "0.02319110505905904`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "42"], "\[Rule]", "0.023619281845090646`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "43"], "\[Rule]", "0.024041512949326847`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "44"], "\[Rule]", "0.02445829069957831`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "45"], "\[Rule]", "0.02486982613144184`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "46"], "\[Rule]", "0.025276234494552227`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "47"], "\[Rule]", "0.025677598709978478`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "48"], "\[Rule]", "0.026073990986667808`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "49"], "\[Rule]", "0.026465480109665707`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "50"], "\[Rule]", "0.02685213383160831`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "51"], "\[Rule]", "0.027234019598479278`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "52"], "\[Rule]", "0.02761120471535497`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "53"], "\[Rule]", "0.027983756329768537`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "54"], "\[Rule]", "0.02835174136104197`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "55"], "\[Rule]", "0.02871522641867458`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "56"], "\[Rule]", "0.029074277723777554`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "57"], "\[Rule]", "0.029428961037662862`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "58"], "\[Rule]", "0.02977934159838315`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "59"], "\[Rule]", "0.030125484064947295`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "60"], "\[Rule]", "0.03046745246862514`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "61"], "\[Rule]", "0.03080531017069682`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "62"], "\[Rule]", "0.03113911982602645`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "63"], "\[Rule]", "0.03146894335188726`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "64"], "\[Rule]", "0.03179484190151712`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "65"], "\[Rule]", "0.03211687584193186`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "66"], "\[Rule]", "0.03243510473556964`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "67"], "\[Rule]", "0.03274958732538062`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "68"], "\[Rule]", "0.033060381523012446`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "69"], "\[Rule]", "0.03336754439977654`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "70"], "\[Rule]", "0.03367113218010915`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "71"], "\[Rule]", "0.03397120023726923`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "72"], "\[Rule]", "0.03426780309103878`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "73"], "\[Rule]", "0.03456099440721423`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "74"], "\[Rule]", "0.03485082699869676`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "75"], "\[Rule]", "0.03513735282800791`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "76"], "\[Rule]", "0.03542062301107306`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "77"], "\[Rule]", "0.03570068782213`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "78"], "\[Rule]", "0.035977596699633636`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "79"], "\[Rule]", "0.0362513982530395`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "80"], "\[Rule]", "0.03652214027035993`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "81"], "\[Rule]", "0.03678986972639729`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "82"], "\[Rule]", "0.03705463279156656`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "83"], "\[Rule]", "0.037316474841229116`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "84"], "\[Rule]", "0.03757544046546582`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "85"], "\[Rule]", "0.03783157347922532`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "86"], "\[Rule]", "0.0380849169327891`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "87"], "\[Rule]", "0.038335513122500206`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "88"], "\[Rule]", "0.03858340360170858`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "89"], "\[Rule]", "0.03882862919188928`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "90"], "\[Rule]", "0.03907122999389553`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "91"], "\[Rule]", "0.039311245399310996`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "92"], "\[Rule]", "0.03954871410187025`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "93"], "\[Rule]", "0.039783674108918844`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "94"], "\[Rule]", "0.04001616275288798`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "95"], "\[Rule]", "0.04024621670276044`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "96"], "\[Rule]", "0.040473871975508044`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "97"], "\[Rule]", "0.04069916394748191`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "98"], "\[Rule]", "0.04092212736573985`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "99"], "\[Rule]", "0.04114279635929587`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "100"], "\[Rule]", "0.04136120445027968`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "101"], "\[Rule]", "0.0415773845649945`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "102"], "\[Rule]", "0.04179136904486342`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "103"], "\[Rule]", "0.04200318965725572`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "104"], "\[Rule]", "0.04221287760618561`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "105"], "\[Rule]", "0.042420463542876596`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "106"], "\[Rule]", "0.042625977576186365`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "107"], "\[Rule]", "0.042829449282887046`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "108"], "\[Rule]", "0.043030907717797`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "109"], "\[Rule]", "0.04323038142376089`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "110"], "\[Rule]", "0.04342789844147529`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "111"], "\[Rule]", "0.04362348631915775`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "112"], "\[Rule]", "0.043817172122057754`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "113"], "\[Rule]", "0.044008982441808384`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "114"], "\[Rule]", "0.044198943405618044`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "115"], "\[Rule]", "0.0443870806853019`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "116"], "\[Rule]", "0.04457341950615293`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "117"], "\[Rule]", "0.04475798465565303`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "118"], "\[Rule]", "0.04494080049202469`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "119"], "\[Rule]", "0.04512189095262408`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "120"], "\[Rule]", "0.045301279562176326`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "121"], "\[Rule]", "0.045478989440854836`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "122"], "\[Rule]", "0.04565504331220527`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "123"], "\[Rule]", "0.045829463510916296`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "124"], "\[Rule]", "0.046002271990438465`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "125"], "\[Rule]", "0.04617349033045328`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "126"], "\[Rule]", "0.046343139744194004`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "127"], "\[Rule]", "0.046511241085620506`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "128"], "\[Rule]", "0.04667781485645001`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "129"], "\[Rule]", "0.04684288121304585`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "130"], "\[Rule]", "0.04700645997316659`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "131"], "\[Rule]", "0.04716857062257736`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "132"], "\[Rule]", "0.0473292323215261`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "133"], "\[Rule]", "0.04748846391108651`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "134"], "\[Rule]", "0.047646283919370404`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "135"], "\[Rule]", "0.047802710567611414`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "136"], "\[Rule]", "0.04795776177612267`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "137"], "\[Rule]", "0.04811145517013048`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "138"], "\[Rule]", "0.04826380808548651`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "139"], "\[Rule]", "0.048414837574260655`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "140"], "\[Rule]", "0.04856456041021699`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "141"], "\[Rule]", "0.04871299309417479`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "142"], "\[Rule]", "0.04886015185925756`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "143"], "\[Rule]", "0.049006052676031225`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "144"], "\[Rule]", "0.0491507112575348`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "145"], "\[Rule]", "0.04929414306420512`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "146"], "\[Rule]", "0.04943636330869776`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "147"], "\[Rule]", "0.049577386960606686`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "148"], "\[Rule]", "0.04971722875108434`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "149"], "\[Rule]", "0.049855903177364436`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "150"], "\[Rule]", "0.04999342450718959`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "151"], "\[Rule]", "0.050129806783145645`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "152"], "\[Rule]", "0.0502650638269046`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "153"], "\[Rule]", "0.05039920924337848`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "154"], "\[Rule]", "0.050532256424785614`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "155"], "\[Rule]", "0.05066421855463157`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "156"], "\[Rule]", "0.050795108611606306`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "157"], "\[Rule]", "0.05092493937339954`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "158"], "\[Rule]", "0.0510537234204362`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "159"], "\[Rule]", "0.051181473139533404`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "160"], "\[Rule]", "0.0513082007274809`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "161"], "\[Rule]", "0.0514339181945468`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "162"], "\[Rule]", "0.05155863736790987`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "163"], "\[Rule]", "0.051682369895020265`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "164"], "\[Rule]", "0.051805127246890306`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "165"], "\[Rule]", "0.051926920721316626`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "166"], "\[Rule]", "0.052047761446035554`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "167"], "\[Rule]", "0.05216766038181281`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "168"], "\[Rule]", "0.05228662832546936`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "169"], "\[Rule]", "0.052404675912844575`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "170"], "\[Rule]", "0.052521813621698284`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "171"], "\[Rule]", "0.052638051774553024`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "172"], "\[Rule]", "0.05275340054147804`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "173"], "\[Rule]", "0.05286786994281669`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "174"], "\[Rule]", "0.0529814698518591`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "175"], "\[Rule]", "0.053094209997464295`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "176"], "\[Rule]", "0.053206099966637985`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "177"], "\[Rule]", "0.05331714920708304`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "178"], "\[Rule]", "0.053427367029762036`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "179"], "\[Rule]", "0.053536762611573016`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "180"], "\[Rule]", "0.053645344998394226`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "181"], "\[Rule]", "0.053753123109152756`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "182"], "\[Rule]", "0.05386010574258914`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "183"], "\[Rule]", "0.05396630159098822`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "184"], "\[Rule]", "0.054071719271768605`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "185"], "\[Rule]", "0.05417636740468547`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "186"], "\[Rule]", "0.054280254805282`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "187"], "\[Rule]", "0.054383390974145705`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "188"], "\[Rule]", "0.05448578733786383`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "189"], "\[Rule]", "0.05458746039786555`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "190"], "\[Rule]", "0.05468843971618365`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "191"], "\[Rule]", "0.05478878815211154`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "192"], "\[Rule]", "0.054888653114515885`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "193"], "\[Rule]", "0.054988396443557686`"}], 
     ",", 
     RowBox[{
      SubscriptBox["ktilde", "194"], "\[Rule]", "0.05508892511218951`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "195"], "\[Rule]", "0.05519254901022545`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "196"], "\[Rule]", "0.05530534687668754`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "197"], "\[Rule]", "0.05544489024767529`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "198"], "\[Rule]", "0.05567491653997672`"}], ",", 
     RowBox[{
      SubscriptBox["ktilde", "199"], "\[Rule]", "0.0563232712596274`"}], ",", 
     
     RowBox[{
      SubscriptBox["ktilde", "200"], "\[Rule]", "0.05963335303912826`"}]}], 
    "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.896947278279183*^9, 3.896947304012991*^9}, 
   3.896947583548276*^9, {3.896948182213542*^9, 3.896948195725048*^9}, {
   3.896949611395438*^9, 3.89694961244205*^9}, 3.896949692695689*^9, 
   3.899183672853671*^9, 3.8991918311901913`*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"1b6502f5-23c9-402b-8b26-f36287e3e91b"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ansFull", "=", 
   RowBox[{"solveModelHelper", "[", 
    RowBox[{
    "inputDataFull", ",", "initpointsFull", ",", "initialDistributionFull", 
     ",", "allParmsFull", ",", "1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.896949733085244*^9, 3.8969497355046062`*^9}, {
  3.896949782155897*^9, 3.896949820252098*^9}, {3.896949981751202*^9, 
  3.896949983583651*^9}, {3.896950042571059*^9, 3.896950043304647*^9}, {
  3.896950110264027*^9, 3.896950113648921*^9}, {3.8988292804294558`*^9, 
  3.8988293106163073`*^9}, {3.898830319773121*^9, 3.898830329793866*^9}, {
  3.8988347069373837`*^9, 3.898834714275692*^9}, {3.899183709487114*^9, 
  3.899183718462171*^9}, {3.8991918893845987`*^9, 3.899191907938766*^9}, {
  3.902822292018255*^9, 3.902822293326736*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"8f48848f-0608-4b99-a3e1-45f810033200"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"--", 
     RowBox[{"-", "Homogenous"}]}], " ", "Agent", " ", "version"}], ",", " ", 
   
   RowBox[{"Full", " ", 
    RowBox[{"Model", "--"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.862884516086323*^9, 3.86288453242387*^9}, 
   3.862885742236683*^9, 3.862886069569072*^9, {3.899786369428084*^9, 
   3.8997863706366663`*^9}, {3.899790077084474*^9, 3.899790079105813*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"d6d1fd31-3a87-439c-96f1-b25b2e64d4f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "testHomo", " ", "function", " ", "to", " ", "recalibrate", " ", "new", 
    " ", "productivity", " ", "growth", " ", 
    RowBox[{"rates", " ", "--"}]}], "-", " ", "FULL"}], "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.896937561517844*^9, 3.89693761672165*^9}, 
   3.8969440204639263`*^9, {3.8971002851368713`*^9, 3.89710028552398*^9}, {
   3.8997860113524103`*^9, 3.899786013381721*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"3a4983ad-0986-4137-9f63-58e9e22d7e2d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"counter", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"testHomoFull", "[", 
     RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"testHomoFull", "[", 
      RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], "=", "\[IndentingNewLine]", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "inputData", ",", "allParms", ",", "allParmsOriginal", ",", 
         "distt2000", ",", "averageBeta2000", ",", "initialDistributionTilde",
          ",", "pp", ",", "temp", ",", "initialDistribution", ",", "points", 
         ",", " ", "points2", ",", "ans5", ",", "grrates", ",", "ansss1"}], 
        "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"inputData", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"lrintr", "\[Rule]", "lrintrparm"}], ",", 
           RowBox[{
           "matchlrirBaselinyears", "\[Rule]", "matchlrirBaselinyearsparm"}], 
           ",", 
           RowBox[{"stdevbeta", "\[Rule]", "stdevbetaparm"}], ",", 
           RowBox[{"gNCutoffs", "\[Rule]", "gNCutoffsparms"}], ",", 
           RowBox[{"gNyearsFuture", "\[Rule]", "gNyearsFutureparm"}], ",", 
           RowBox[{"gNss", "\[Rule]", "gNssparm"}], ",", 
           RowBox[{"gDCutoffs", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1775", ",", "aa"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1875", ",", 
                RowBox[{"1.", "bb"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"2000", ",", "cc"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"gDyearsFuture", "\[Rule]", "gDyearsFutureparm"}], ",", 
           RowBox[{"gDss", "\[Rule]", "gDssparm"}], ",", 
           RowBox[{"\[Nu]", "\[Rule]", "\[Nu]parm"}], ",", 
           RowBox[{"\[Delta]", "\[Rule]", "\[Delta]parm"}], ",", 
           RowBox[{"Pie", "\[Rule]", 
            RowBox[{"smoothedpie", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
           RowBox[{"Piess", "\[Rule]", "Piessparm"}], ",", 
           RowBox[{"lrconssh", "\[Rule]", "lrconsshparm"}], ",", 
           RowBox[{"nTypes", "\[Rule]", "1"}], ",", 
           RowBox[{"precision", "\[Rule]", "precisionparm"}], ",", 
           RowBox[{"inityear", "\[Rule]", "inityearparm"}], ",", 
           RowBox[{"currentyear", "\[Rule]", "currentyearparm"}], ",", " ", 
           RowBox[{"time", "\[Rule]", "timeparm"}], ",", 
           RowBox[{"\[Omega]", "\[Rule]", "\[Omega]parm"}], ",", 
           RowBox[{"Pie28", "\[Rule]", 
            RowBox[{"smoothedpie", "[", 
             RowBox[{"[", 
              RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
           RowBox[{"ave\[Beta]", "->", "averageBeta2000Full"}], ",", 
           RowBox[{"percentiles", "->", "percentilesparm"}], ",", 
           RowBox[{"Nm1", "->", "Nm1parm"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"inputData", "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"lrintr", "\[Rule]", "0.064"}], ",", 
             RowBox[{"matchlrirBaselinyears", "\[Rule]", "100"}], ",", 
             RowBox[{"stdevbeta", "\[Rule]", "0.0053"}], ",", 
             RowBox[{"gNCutoffs", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"1700", ",", "1.030615194"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1875", ",", "1.118744119"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2000", ",", "1.356358323"}], "}"}]}], "}"}]}], ",", 
             
             RowBox[{"gNyearsFuture", "\[Rule]", "100"}], ",", 
             RowBox[{"gNss", "\[Rule]", 
              SuperscriptBox["0.99", "25"]}], ",", 
             RowBox[{"gDCutoffs", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"1775", ",", "aa"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1875", ",", 
                  RowBox[{"1.", "bb"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2000", ",", "cc"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"gDyearsFuture", "\[Rule]", "100"}], ",", 
             RowBox[{"gDss", "\[Rule]", 
              SuperscriptBox["1.005", "25"]}], ",", 
             RowBox[{"\[Nu]", "\[Rule]", "0.33"}], ",", 
             RowBox[{"\[Delta]", "\[Rule]", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "0.1"}], ")"}], "25"]}]}], ",", 
             RowBox[{"Pie", "\[Rule]", 
              RowBox[{"smoothedpie", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
             RowBox[{"Piess", "\[Rule]", "0.666667"}], ",", 
             RowBox[{"lrconssh", "\[Rule]", "0.75"}], ",", 
             RowBox[{"nTypes", "\[Rule]", "10000"}], ",", 
             RowBox[{"precision", "\[Rule]", "100"}], ",", 
             RowBox[{"inityear", "\[Rule]", "1300"}], ",", 
             RowBox[{"currentyear", "\[Rule]", "2000"}], ",", " ", 
             RowBox[{"time", "\[Rule]", "200"}], ",", 
             RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
             RowBox[{"Pie28", "\[Rule]", 
              RowBox[{"smoothedpie", "[", 
               RowBox[{"[", 
                RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
             RowBox[{"ave\[Beta]", "->", "averageBeta2000Full"}]}], "}"}]}], 
          ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"allParms", ",", "points"}], "}"}], "=", 
         RowBox[{"calibrationHomo", "[", "inputData", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"counter", "=", 
         RowBox[{"counter", "+", "1"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"points2", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"points", ",", 
           RowBox[{"{", 
            RowBox[{"initpoints", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                SubscriptBox["ax", 
                 RowBox[{"-", "1"}]], "\[Rule]", "0.13602388059137732`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "0"], "\[Rule]", "0.13602388021143924`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "1"], "\[Rule]", "0.1360238740321128`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "2"], "\[Rule]", "0.13602385960060376`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "3"], "\[Rule]", "0.13602382943332086`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "4"], "\[Rule]", "0.13602376726938126`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "5"], "\[Rule]", "0.13602363916297214`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "6"], "\[Rule]", "0.13602337448579582`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "7"], "\[Rule]", "0.13602282591651266`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "8"], "\[Rule]", "0.1360216850556979`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "9"], "\[Rule]", "0.13601930380972646`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "10"], "\[Rule]", "0.13601431487497534`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "11"], "\[Rule]", "0.13600382256600907`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "12"], "\[Rule]", "0.1359816731658841`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "13"], "\[Rule]", "0.13593475550940104`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "14"], "\[Rule]", "0.13583511664082168`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "15"], "\[Rule]", "0.13562336748976916`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "16"], "\[Rule]", "0.1351748803461428`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "17"], "\[Rule]", "0.13423633472649832`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "18"], "\[Rule]", "0.13233054445881226`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "19"], "\[Rule]", "0.12870929369825185`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "20"], "\[Rule]", "0.12268284452195889`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "21"], "\[Rule]", "0.11476558953232417`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "22"], "\[Rule]", "0.10772284562818811`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "23"], "\[Rule]", "0.10513730843465297`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "24"], "\[Rule]", "0.10836392214484598`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "25"], "\[Rule]", "0.11529312919228722`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "26"], "\[Rule]", "0.12236567121073497`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "27"], "\[Rule]", "0.12748763267358268`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "28"], "\[Rule]", "0.13046898869086565`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "29"], "\[Rule]", "0.1325658744444363`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "30"], "\[Rule]", "0.1333099972833224`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "31"], "\[Rule]", "0.13718684451571636`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "32"], "\[Rule]", "0.29087577720207786`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "33"], "\[Rule]", "0.39132262693372066`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "34"], "\[Rule]", "0.4321066090645135`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "35"], "\[Rule]", "0.44669074819599713`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "36"], "\[Rule]", "0.4516863614959791`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "37"], "\[Rule]", "0.45337296872534216`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "38"], "\[Rule]", "0.45393963974803553`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "39"], "\[Rule]", "0.45412972185657263`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "40"], "\[Rule]", "0.4541934475473034`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "41"], "\[Rule]", "0.45421480790154806`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "42"], "\[Rule]", "0.4542219672868232`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "43"], "\[Rule]", "0.4542243668605425`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "44"], "\[Rule]", "0.45422517110757965`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "45"], "\[Rule]", "0.4542254406603751`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "46"], "\[Rule]", "0.4542255310040756`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "47"], "\[Rule]", "0.45422556128379143`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "48"], "\[Rule]", "0.4542255714323809`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "49"], "\[Rule]", "0.45422557483379533`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "50"], "\[Rule]", "0.4542255759738178`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "51"], "\[Rule]", "0.45422557635590927`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "52"], "\[Rule]", "0.4542255764839714`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "53"], "\[Rule]", "0.454225576526893`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "54"], "\[Rule]", "0.45422557654127854`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "55"], "\[Rule]", "0.45422557654610013`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "56"], "\[Rule]", "0.4542255765477161`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "57"], "\[Rule]", "0.45422557654825774`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "58"], "\[Rule]", "0.4542255765484393`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "59"], "\[Rule]", "0.45422557654850015`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "60"], "\[Rule]", "0.4542255765485205`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "61"], "\[Rule]", "0.45422557654852735`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "62"], "\[Rule]", "0.4542255765485297`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "63"], "\[Rule]", "0.4542255765485304`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "64"], "\[Rule]", "0.4542255765485305`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "65"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "66"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "67"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "68"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "69"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "70"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "71"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "72"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "73"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "74"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "75"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "76"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "77"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "78"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "79"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "80"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "81"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "82"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "83"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "84"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "85"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "86"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "87"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "88"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "89"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "90"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "91"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "92"], "\[Rule]", "0.4542255765485307`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "93"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "94"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "95"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "96"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "97"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "98"], "\[Rule]", "0.4542255765485308`"}], 
               ",", 
               RowBox[{
                SubscriptBox["ax", "99"], "\[Rule]", "0.45422557654853074`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "100"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "101"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "102"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "103"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "104"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "105"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "106"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "107"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "108"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "109"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "110"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "111"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "112"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "113"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "114"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "115"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "116"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "117"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "118"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "119"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "120"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "121"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "122"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "123"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "124"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "125"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "126"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "127"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "128"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "129"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "130"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "131"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "132"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "133"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "134"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "135"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "136"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "137"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "138"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "139"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "140"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "141"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "142"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "143"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "144"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "145"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "146"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "147"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "148"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "149"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "150"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "151"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "152"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "153"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "154"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "155"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "156"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "157"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "158"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "159"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "160"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "161"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "162"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "163"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "164"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "165"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "166"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "167"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "168"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "169"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "170"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "171"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "172"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "173"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "174"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "175"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "176"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "177"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "178"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "179"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "180"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "181"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "182"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "183"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "184"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "185"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "186"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "187"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "188"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "189"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "190"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "191"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "192"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "193"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "194"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "195"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "196"], "\[Rule]", "0.4542255765485307`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "197"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "198"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ax", "199"], "\[Rule]", "0.4542255765485308`"}],
                ",", 
               RowBox[{
                SubscriptBox["ax", "200"], "\[Rule]", 
                "0.45422557654853074`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "0"], "\[Rule]", 
                "0.0052061195448059394`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "1"], "\[Rule]", 
                "0.005206118932442894`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "2"], "\[Rule]", 
                "0.005206117499640535`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "3"], "\[Rule]", 
                "0.0052061145556836445`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "4"], "\[Rule]", 
                "0.005206108623217026`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "5"], "\[Rule]", 
                "0.005206096706418153`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "6"], "\[Rule]", 
                "0.005206072782005043`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "7"], "\[Rule]", 
                "0.005206024758718052`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "8"], "\[Rule]", 
                "0.005205928376753629`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "9"], "\[Rule]", 
                "0.005205734985413293`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "10"], "\[Rule]", 
                "0.0052053470928087224`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "11"], "\[Rule]", 
                "0.005204569571558156`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "12"], "\[Rule]", 
                "0.005203012691278964`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "13"], "\[Rule]", 
                "0.005199900894535254`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "14"], "\[Rule]", 
                "0.005193701154220016`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "15"], "\[Rule]", 
                "0.005181421119936853`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "16"], "\[Rule]", 
                "0.005157359907213556`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "17"], "\[Rule]", 
                "0.005111162738515472`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "18"], "\[Rule]", 
                "0.005025758559075939`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "19"], "\[Rule]", 
                "0.004878387567311249`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "20"], "\[Rule]", 
                "0.0046531117241787445`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "21"], "\[Rule]", 
                "0.004373964331261272`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "22"], "\[Rule]", 
                "0.004143201079141286`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "23"], "\[Rule]", 
                "0.004117705393288917`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "24"], "\[Rule]", 
                "0.0043860956389401564`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "25"], "\[Rule]", 
                "0.004880487021091146`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "26"], "\[Rule]", 
                "0.005433619095655059`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "27"], "\[Rule]", 
                "0.005891271162506195`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "28"], "\[Rule]", 
                "0.006193439455832249`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "29"], "\[Rule]", 
                "0.006381919420258462`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "30"], "\[Rule]", 
                "0.00647760259896788`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "31"], "\[Rule]", 
                "0.006443209789884909`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "32"], "\[Rule]", 
                "0.004461631138688374`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "33"], "\[Rule]", 
                "0.010914956759517754`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "34"], "\[Rule]", 
                "0.014708287497358924`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "35"], "\[Rule]", 
                "0.016251334407969407`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "36"], "\[Rule]", 
                "0.016803503060338693`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "37"], "\[Rule]", 
                "0.016992687176190107`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "38"], "\[Rule]", 
                "0.01705656431035336`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "39"], "\[Rule]", 
                "0.017078026521178683`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "40"], "\[Rule]", 
                "0.017085225795384778`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "41"], "\[Rule]", 
                "0.017087639384701977`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "42"], "\[Rule]", 
                "0.017088448401848824`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "43"], "\[Rule]", 
                "0.01708871956155918`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "44"], "\[Rule]", 
                "0.017088810444751763`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "45"], "\[Rule]", 
                "0.017088840905387603`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "46"], "\[Rule]", 
                "0.017088851114625887`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "47"], "\[Rule]", 
                "0.017088854536368818`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "48"], "\[Rule]", 
                "0.017088855683204774`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "49"], "\[Rule]", 
                "0.017088856067579816`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "50"], "\[Rule]", 
                "0.01708885619640746`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "51"], "\[Rule]", 
                "0.017088856239585504`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "52"], "\[Rule]", 
                "0.017088856254057108`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "53"], "\[Rule]", 
                "0.017088856258907426`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "54"], "\[Rule]", 
                "0.01708885626053307`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "55"], "\[Rule]", 
                "0.017088856261077923`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "56"], "\[Rule]", 
                "0.017088856261260534`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "57"], "\[Rule]", 
                "0.01708885626132174`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "58"], "\[Rule]", 
                "0.017088856261342256`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "59"], "\[Rule]", 
                "0.017088856261349133`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "60"], "\[Rule]", 
                "0.01708885626135144`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "61"], "\[Rule]", 
                "0.01708885626135221`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "62"], "\[Rule]", 
                "0.017088856261352467`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "63"], "\[Rule]", 
                "0.017088856261352554`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "64"], "\[Rule]", 
                "0.017088856261352578`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "65"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "66"], "\[Rule]", 
                "0.017088856261352592`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "67"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "68"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "69"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "70"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "71"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "72"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "73"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "74"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "75"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "76"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "77"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "78"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "79"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "80"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "81"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "82"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "83"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "84"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "85"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "86"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "87"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "88"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "89"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "90"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "91"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "92"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "93"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "94"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "95"], "\[Rule]", 
                "0.017088856261352592`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "96"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "97"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "98"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "99"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "100"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "101"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "102"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "103"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "104"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "105"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "106"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "107"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "108"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "109"], "\[Rule]", 
                "0.017088856261352592`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "110"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "111"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "112"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "113"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "114"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "115"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "116"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "117"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "118"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "119"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "120"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "121"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "122"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "123"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "124"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "125"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "126"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "127"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "128"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "129"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "130"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "131"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "132"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "133"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "134"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "135"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "136"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "137"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "138"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "139"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "140"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "141"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "142"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "143"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "144"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "145"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "146"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "147"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "148"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "149"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "150"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "151"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "152"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "153"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "154"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "155"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "156"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "157"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "158"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "159"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "160"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "161"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "162"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "163"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "164"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "165"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "166"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "167"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "168"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "169"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "170"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "171"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "172"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "173"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "174"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "175"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "176"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "177"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "178"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "179"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "180"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "181"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "182"], "\[Rule]", 
                "0.017088856261352606`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "183"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "184"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "185"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "186"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "187"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "188"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "189"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "190"], "\[Rule]", 
                "0.017088856261352602`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "191"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "192"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "193"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "194"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "195"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "196"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "197"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "198"], "\[Rule]", 
                "0.0170888562613526`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "199"], "\[Rule]", 
                "0.017088856261352595`"}], ",", 
               RowBox[{
                SubscriptBox["ktilde", "200"], "\[Rule]", 
                "0.017088856261352606`"}]}], "}"}]}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"ans5", "=", 
         RowBox[{"SolveModel", "[", "points2", "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"grrates", "=", 
         RowBox[{"{", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "21", "]"}], "]"}], 
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]], ")"}], 
            FractionBox["25", 
             RowBox[{"1775", "-", "1275"}]]], ",", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "25", "]"}], "]"}], 
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "21", "]"}], "]"}]], ")"}], 
            FractionBox["25", 
             RowBox[{"1875", "-", "1775"}]]], ",", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "30", "]"}], "]"}], 
              RowBox[{
               RowBox[{"ans5", "[", 
                RowBox[{"[", 
                 RowBox[{"7", ",", "All", ",", "2"}], "]"}], "]"}], "[", 
               RowBox[{"[", "25", "]"}], "]"}]], ")"}], 
            FractionBox["25", 
             RowBox[{"2000", "-", "1875"}]]]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Remove", "[", 
         RowBox[{
         "inputData", ",", "allParms", ",", "allParmsOriginal", ",", 
          "distt2000", ",", "averageBeta2000", ",", 
          "initialDistributionTilde", ",", "pp", ",", "temp", ",", 
          "initialDistribution", ",", "points", ",", " ", "points2", ",", 
          "ans5"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        
        RowBox[{"Return", "[", "grrates", "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8635177655655537`*^9, {3.8637735974806013`*^9, 3.8637735976829696`*^9}, 
   3.865070714203122*^9, {3.865395309281442*^9, 3.8653953107423983`*^9}, {
   3.865395462021286*^9, 3.865395462131199*^9}, {3.8656870658341837`*^9, 
   3.8656870703479414`*^9}, 3.8663664802955713`*^9, {3.8944301612940893`*^9, 
   3.8944301785293417`*^9}, {3.894430429390369*^9, 3.894430504315989*^9}, {
   3.8944308064806347`*^9, 3.894430812794558*^9}, 3.8944310584922333`*^9, {
   3.8944311167966413`*^9, 3.894431138939095*^9}, {3.89443145160601*^9, 
   3.89443149328722*^9}, {3.8944323614635143`*^9, 3.894432361848316*^9}, {
   3.8944324318921213`*^9, 3.89443245408702*^9}, {3.894432723227734*^9, 
   3.894432753127657*^9}, {3.894432986196177*^9, 3.8944329971599216`*^9}, {
   3.894433210133746*^9, 3.894433221141823*^9}, {3.894433493868105*^9, 
   3.894433505262285*^9}, {3.894433723820862*^9, 3.894433743604007*^9}, {
   3.894433961318585*^9, 3.894433982576827*^9}, {3.894434214450403*^9, 
   3.894434234009416*^9}, {3.89443449397114*^9, 3.894434501244528*^9}, {
   3.8944347286086063`*^9, 3.894434743316289*^9}, {3.894434968045705*^9, 
   3.894434985060224*^9}, {3.894435181181389*^9, 3.894435193681978*^9}, {
   3.894435392759449*^9, 3.894435402814197*^9}, {3.894435744155819*^9, 
   3.894435757871173*^9}, {3.8944359616177464`*^9, 3.89443596762703*^9}, {
   3.894436219767043*^9, 3.8944362260974693`*^9}, 3.8949666304579353`*^9, {
   3.894967251945449*^9, 3.894967252225835*^9}, {3.8949673125995483`*^9, 
   3.894967433281789*^9}, {3.894967648786211*^9, 3.894967658145582*^9}, {
   3.894980206447342*^9, 3.894980216160246*^9}, 3.894980616679845*^9, {
   3.896151193436819*^9, 3.8961512089905*^9}, 3.8961524642683783`*^9, 
   3.896152756502841*^9, {3.896167539394092*^9, 3.8961675436359158`*^9}, {
   3.8961677812828007`*^9, 3.8961677817596493`*^9}, {3.8961685618901997`*^9, 
   3.896168625625434*^9}, 3.8961765245842123`*^9, 3.89617712690278*^9, 
   3.896177164750903*^9, {3.896189240375902*^9, 3.896189256836794*^9}, {
   3.896237783818182*^9, 3.896237784030299*^9}, {3.896246715405712*^9, 
   3.8962467207888823`*^9}, 3.896246862690405*^9, {3.896246949357946*^9, 
   3.896246950456853*^9}, {3.8962470261221743`*^9, 3.896247028426524*^9}, {
   3.8962479736583967`*^9, 3.89624797576932*^9}, 3.8962481637003307`*^9, 
   3.896248360804446*^9, {3.896248865166951*^9, 3.896248865638084*^9}, 
   3.8962489732404413`*^9, 3.896249510135578*^9, 3.896253297553278*^9, {
   3.896253353174135*^9, 3.896253363515573*^9}, {3.896253420007099*^9, 
   3.896253420052924*^9}, {3.896253475365512*^9, 3.896253477957603*^9}, {
   3.896253528839517*^9, 3.896253530364293*^9}, {3.896253592132263*^9, 
   3.8962535949074306`*^9}, 3.896254411598815*^9, {3.896259543507779*^9, 
   3.8962595548184233`*^9}, {3.896259604875214*^9, 3.896259605042103*^9}, 
   3.896259641284771*^9, {3.896260851744389*^9, 3.8962608520239058`*^9}, {
   3.89626099388616*^9, 3.896260993930797*^9}, {3.896261029059024*^9, 
   3.896261029118433*^9}, {3.896261412289307*^9, 3.8962614123961573`*^9}, {
   3.896261476361484*^9, 3.896261504748332*^9}, {3.896261884296034*^9, 
   3.8962618934798183`*^9}, {3.896852907824437*^9, 3.896852919592903*^9}, {
   3.896853088687676*^9, 3.896853107163468*^9}, {3.896853214543079*^9, 
   3.896853277403655*^9}, {3.8968535761661654`*^9, 3.896853576840423*^9}, 
   3.896853706890362*^9, {3.89685471488765*^9, 3.896854776263294*^9}, {
   3.8968548535091133`*^9, 3.896854869106722*^9}, 3.8968553452232857`*^9, {
   3.896855596371025*^9, 3.89685559646996*^9}, 3.896922447608083*^9, 
   3.896928491589931*^9, {3.896933835165987*^9, 3.896933840142089*^9}, 
   3.896937320528051*^9, 3.8969373654973097`*^9, {3.896937468236788*^9, 
   3.896937468403767*^9}, {3.8969375878658447`*^9, 3.896937616724633*^9}, 
   3.8969388210587263`*^9, {3.896938975785695*^9, 3.896938978807228*^9}, {
   3.89693916172998*^9, 3.896939163967545*^9}, {3.896939206376258*^9, 
   3.896939218913179*^9}, 3.896939271330421*^9, {3.896939431386485*^9, 
   3.896939435412593*^9}, {3.89694381553085*^9, 3.8969439376896563`*^9}, {
   3.8969439856591787`*^9, 3.896944020466487*^9}, {3.89694422906931*^9, 
   3.896944229221839*^9}, {3.896944412533223*^9, 3.896944425423764*^9}, {
   3.8969540047276707`*^9, 3.896954007134009*^9}, 3.896954048419269*^9, {
   3.897100290024877*^9, 3.897100296297215*^9}, {3.898848850265087*^9, 
   3.898848884545754*^9}, 3.898850461808099*^9, {3.899785702750943*^9, 
   3.8997857575878677`*^9}, 3.899786034043378*^9, {3.899790023938517*^9, 
   3.899790026943046*^9}, {3.9029863011071033`*^9, 3.902986327959745*^9}, 
   3.902986388851905*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"bf01bdfd-fec1-48d2-84fb-b098e8c98cc8"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Full", " ", "Homo", " ", "Model"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"LaunchKernels", "[", "5", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"initialPoint", "=", 
     RowBox[{"{", 
      RowBox[{
      "1.0071819259046262`", ",", "1.0816318637535527`", ",", 
       "1.2862031145880828`"}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"Initial", " ", "guess", " ", "for", " ", "the", " ", "point"}], 
    "*)"}], "\n", 
   RowBox[{
    RowBox[{"gridDensity", "=", 
     RowBox[{"{", 
      RowBox[{"5", ",", "5", ",", "5"}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Number", " ", "of", " ", "grid", " ", "points", " ", "for", " ", "each", 
     " ", "dimension"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"del", "=", 
     RowBox[{"{", 
      RowBox[{"0.001", ",", "0.001", ",", "0.001"}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Initial", " ", "search", " ", "interval", " ", "size", " ", "for", " ", 
     "each", " ", "dimension"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"target", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"gYCutoffstarget", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"gYCutoffstarget", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"gYCutoffstarget", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"Target", " ", "value", " ", "to", " ", "approach"}], "*)"}], 
   "\n", 
   RowBox[{
    RowBox[{"tolerance", "=", 
     SuperscriptBox["10", 
      RowBox[{"-", "7"}]]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Desired", " ", "Euclidean", " ", "distance", " ", "from", " ", "target", 
     " ", "to", " ", "stop", " ", "iterations"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"AbsoluteTiming", "[", 
    RowBox[{
     RowBox[{"optimizedProductivities", "=", 
      RowBox[{"IterativeFindMinPoint", "[", 
       RowBox[{
       "initialPoint", ",", "gridDensity", ",", "del", ",", "target", ",", 
        "tolerance", ",", "testHomoFull"}], "]"}]}], ";"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.896944126350226*^9, 3.8969441292403793`*^9}, 
   3.896944488433318*^9, 3.8971002999006653`*^9, {3.897100344496537*^9, 
   3.8971003510560102`*^9}, 3.898848915393612*^9, {3.89885051993509*^9, 
   3.8988505268224373`*^9}, {3.899785954983572*^9, 3.899785956453437*^9}, {
   3.8997860184831877`*^9, 3.899786024607092*^9}, 3.899790031088723*^9, {
   3.902732726157157*^9, 3.902732726949541*^9}, {3.902986587519257*^9, 
   3.902986609944306*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"f67b9cf4-dbcf-487b-b2c1-adc2a1f53ae2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputDataFullHomo", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"lrintr", "\[Rule]", "lrintrparm"}], ",", 
     RowBox[{
     "matchlrirBaselinyears", "\[Rule]", "matchlrirBaselinyearsparm"}], ",", 
     RowBox[{"stdevbeta", "\[Rule]", "stdevbetaparm"}], ",", 
     RowBox[{"gNCutoffs", "\[Rule]", "gNCutoffsparms"}], ",", 
     RowBox[{"gNyearsFuture", "\[Rule]", "gNyearsFutureparm"}], ",", 
     RowBox[{"gNss", "\[Rule]", "gNssparm"}], ",", 
     RowBox[{"gDCutoffs", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1775", ",", 
          RowBox[{"optimizedProductivities", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1875", ",", 
          RowBox[{"optimizedProductivities", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2000", ",", 
          RowBox[{"optimizedProductivities", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"gDyearsFuture", "\[Rule]", "gDyearsFutureparm"}], ",", 
     RowBox[{"gDss", "\[Rule]", "gDssparm"}], ",", 
     RowBox[{"\[Nu]", "\[Rule]", "\[Nu]parm"}], ",", 
     RowBox[{"\[Delta]", "\[Rule]", "\[Delta]parm"}], ",", 
     RowBox[{"Pie", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"Piess", "\[Rule]", "Piessparm"}], ",", 
     RowBox[{"lrconssh", "\[Rule]", "lrconsshparm"}], ",", 
     RowBox[{"nTypes", "\[Rule]", "1"}], ",", 
     RowBox[{"precision", "\[Rule]", "precisionparm"}], ",", 
     RowBox[{"inityear", "\[Rule]", "inityearparm"}], ",", 
     RowBox[{"currentyear", "\[Rule]", "currentyearparm"}], ",", " ", 
     RowBox[{"time", "\[Rule]", "timeparm"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", "\[Omega]parm"}], ",", 
     RowBox[{"Pie28", "\[Rule]", 
      RowBox[{"smoothedpie", "[", 
       RowBox[{"[", 
        RowBox[{"30", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"ave\[Beta]", "->", "averageBeta2000Full"}], ",", 
     RowBox[{"percentiles", "->", "percentilesparm"}], ",", 
     RowBox[{"Nm1", "->", "Nm1parm"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.9029866303044853`*^9, 3.902986650605584*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"4e0eff38-1c0b-406c-ae97-c2a7d35aa2b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"allParmsFullHomo", ",", "pointsFullHomo"}], "}"}], "=", 
   RowBox[{"calibrationHomo", "[", "inputDataFullHomo", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.899786136494556*^9, 3.8997861388462677`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"4ed24875-6b12-45d9-ae54-073dc2ca3b4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", "points5Homo", "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8653969466343913`*^9, 3.86539695053154*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"6273db3f-6c9c-4e7a-8773-e1a8e353f2a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pointsFull5Homo", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"pointsFullHomo", ",", 
     RowBox[{"{", 
      RowBox[{"initpoints", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["ax", 
           RowBox[{"-", "1"}]], "\[Rule]", "0.138197858433927`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "0"], "\[Rule]", "0.13819785805558474`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "1"], "\[Rule]", "0.13819785569848256`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "2"], "\[Rule]", "0.13819785008599306`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "3"], "\[Rule]", "0.1381978377540378`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "4"], "\[Rule]", "0.1381978109356419`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "5"], "\[Rule]", "0.13819775263044676`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "6"], "\[Rule]", "0.13819762571755012`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "7"], "\[Rule]", "0.13819734907920683`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "8"], "\[Rule]", "0.13819674524401093`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "9"], "\[Rule]", "0.13819542548939953`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "10"], "\[Rule]", "0.13819253753036856`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "11"], "\[Rule]", "0.13818621131000017`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "12"], "\[Rule]", "0.13817234233979012`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "13"], "\[Rule]", "0.13814192670873918`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "14"], "\[Rule]", "0.1380752577383249`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "15"], "\[Rule]", "0.13792946491632474`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "16"], "\[Rule]", "0.13761263647006597`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "17"], "\[Rule]", "0.1369343355744682`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "18"], "\[Rule]", "0.13553056355440615`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "19"], "\[Rule]", "0.132832273072191`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "20"], "\[Rule]", "0.12837653940949034`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "21"], "\[Rule]", "0.12287022559652512`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "22"], "\[Rule]", "0.11898392768352238`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "23"], "\[Rule]", "0.11922347433632118`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "24"], "\[Rule]", "0.12290344207189183`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "25"], "\[Rule]", "0.12728313696389665`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "26"], "\[Rule]", "0.13055564796474897`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "27"], "\[Rule]", "0.13243015691515478`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "28"], "\[Rule]", "0.13393242316466014`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "29"], "\[Rule]", "0.1342652132810281`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "30"], "\[Rule]", "0.13443493913514803`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "31"], "\[Rule]", "0.13848794808618708`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "32"], "\[Rule]", "0.29171471495169715`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "33"], "\[Rule]", "0.39608471544812274`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "34"], "\[Rule]", "0.4387643655411396`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "35"], "\[Rule]", "0.4540796022855937`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "36"], "\[Rule]", "0.4593371330387514`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "37"], "\[Rule]", "0.46111524435167667`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "38"], "\[Rule]", "0.4617135985063211`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "39"], "\[Rule]", "0.46191461256317257`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "40"], "\[Rule]", "0.46198210406099266`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "41"], "\[Rule]", "0.4620047603775137`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "42"], "\[Rule]", "0.46201236542414525`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "43"], "\[Rule]", "0.4620149181558673`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "44"], "\[Rule]", "0.46201577500695595`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "45"], "\[Rule]", "0.4620160626172887`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "46"], "\[Rule]", "0.462016159156393`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "47"], "\[Rule]", "0.4620161915606395`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "48"], "\[Rule]", "0.46201620243742464`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "49"], "\[Rule]", "0.46201620608831806`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "50"], "\[Rule]", "0.4620162073137743`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "51"], "\[Rule]", "0.46201620772510993`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "52"], "\[Rule]", "0.46201620786317854`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "53"], "\[Rule]", "0.4620162079095225`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "54"], "\[Rule]", "0.4620162079250784`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "55"], "\[Rule]", "0.46201620793029985`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "56"], "\[Rule]", "0.4620162079320525`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "57"], "\[Rule]", "0.4620162079326408`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "58"], "\[Rule]", "0.4620162079328382`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "59"], "\[Rule]", "0.4620162079329045`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "60"], "\[Rule]", "0.4620162079329266`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "61"], "\[Rule]", "0.4620162079329342`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "62"], "\[Rule]", "0.46201620793293663`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "63"], "\[Rule]", "0.4620162079329376`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "64"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "65"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "66"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "67"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "68"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "69"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "70"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "71"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "72"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "73"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "74"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "75"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "76"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "77"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "78"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "79"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "80"], "\[Rule]", "0.46201620793293807`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "81"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "82"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "83"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "84"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "85"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "86"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "87"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "88"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "89"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "90"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "91"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "92"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "93"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "94"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "95"], "\[Rule]", "0.46201620793293796`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "96"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "97"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "98"], "\[Rule]", "0.4620162079329379`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "99"], "\[Rule]", "0.46201620793293785`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "100"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "101"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "102"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "103"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "104"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "105"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "106"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "107"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "108"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "109"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "110"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "111"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "112"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "113"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "114"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "115"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "116"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "117"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "118"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "119"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "120"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "121"], "\[Rule]", "0.46201620793293807`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "122"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "123"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "124"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "125"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "126"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "127"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "128"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "129"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "130"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "131"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "132"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "133"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "134"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "135"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "136"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "137"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "138"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "139"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "140"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "141"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "142"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "143"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "144"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "145"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "146"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "147"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "148"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "149"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "150"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "151"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "152"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "153"], "\[Rule]", "0.46201620793293807`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "154"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "155"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "156"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "157"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "158"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "159"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "160"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "161"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "162"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "163"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "164"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "165"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "166"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "167"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "168"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "169"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "170"], "\[Rule]", "0.4620162079329378`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "171"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "172"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "173"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "174"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "175"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "176"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "177"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "178"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "179"], "\[Rule]", "0.462016207932938`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "180"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "181"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "182"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "183"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "184"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "185"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "186"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "187"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "188"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "189"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "190"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "191"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "192"], "\[Rule]", "0.46201620793293785`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "193"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "194"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "195"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "196"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "197"], "\[Rule]", "0.46201620793293796`"}], ",", 
         RowBox[{
          SubscriptBox["ax", "198"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "199"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ax", "200"], "\[Rule]", "0.4620162079329379`"}], ",", 
         
         RowBox[{
          SubscriptBox["ktilde", "0"], "\[Rule]", "0.005721196741191497`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "1"], "\[Rule]", "0.0057211965557257514`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "2"], "\[Rule]", "0.005721196105815789`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "3"], "\[Rule]", "0.005721195144208351`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "4"], "\[Rule]", "0.005721193127922815`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "5"], "\[Rule]", "0.005721188917344798`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "6"], "\[Rule]", "0.0057211801413640205`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "7"], "\[Rule]", "0.00572116188369954`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "8"], "\[Rule]", "0.005721123982546206`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "9"], "\[Rule]", "0.005721045510219113`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "10"], "\[Rule]", "0.005720883561473196`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "11"], "\[Rule]", "0.005720550675538221`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "12"], "\[Rule]", "0.005719869891173428`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "13"], "\[Rule]", "0.0057184867507933295`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "14"], "\[Rule]", "0.005715701389432532`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "15"], "\[Rule]", "0.005710161855156384`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "16"], "\[Rule]", "0.005699349465333766`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "17"], "\[Rule]", "0.005678872757044115`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "18"], "\[Rule]", "0.005642065205175128`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "19"], "\[Rule]", "0.00558200269524375`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "20"], "\[Rule]", "0.0055014245563821075`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "21"], "\[Rule]", "0.005435577959737892`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "22"], "\[Rule]", "0.005465688956090472`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "23"], "\[Rule]", "0.0056632409151162735`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "24"], "\[Rule]", "0.006006325530147773`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "25"], "\[Rule]", "0.006391312365148725`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "26"], "\[Rule]", "0.006709027000450864`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "27"], "\[Rule]", "0.006915616893338251`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "28"], "\[Rule]", "0.007049633004343486`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "29"], "\[Rule]", "0.0071169731984199935`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "30"], "\[Rule]", "0.007125655148421176`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "31"], "\[Rule]", "0.0070507002869153014`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "32"], "\[Rule]", "0.0049221648423019276`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "33"], "\[Rule]", "0.012377521342464238`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "34"], "\[Rule]", "0.01683724386781646`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "35"], "\[Rule]", "0.018664777773350787`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "36"], "\[Rule]", "0.01932109147719166`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "37"], "\[Rule]", "0.019546457952396918`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "38"], "\[Rule]", "0.019622684658394268`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "39"], "\[Rule]", "0.019648336600194036`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "40"], "\[Rule]", "0.019656954332076114`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "41"], "\[Rule]", "0.019659847789961583`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "42"], "\[Rule]", "0.019660819100101968`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "43"], "\[Rule]", "0.01966114513994497`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "44"], "\[Rule]", "0.019661254579426746`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "45"], "\[Rule]", "0.01966129131393455`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "46"], "\[Rule]", "0.019661303644226604`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "47"], "\[Rule]", "0.019661307783004744`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "48"], "\[Rule]", "0.01966130917222404`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "49"], "\[Rule]", "0.01966130963852835`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "50"], "\[Rule]", "0.019661309795047707`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "51"], "\[Rule]", "0.019661309847584876`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "52"], "\[Rule]", "0.019661309865219464`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "53"], "\[Rule]", "0.019661309871138677`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "54"], "\[Rule]", "0.019661309873125508`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "55"], "\[Rule]", "0.019661309873792412`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "56"], "\[Rule]", "0.019661309874016264`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "57"], "\[Rule]", "0.019661309874091402`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "58"], "\[Rule]", "0.01966130987411662`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "59"], "\[Rule]", "0.019661309874125087`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "60"], "\[Rule]", "0.019661309874127928`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "61"], "\[Rule]", "0.019661309874128875`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "62"], "\[Rule]", "0.019661309874129198`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "63"], "\[Rule]", "0.019661309874129305`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "64"], "\[Rule]", "0.019661309874129347`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "65"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "66"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "67"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "68"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "69"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "70"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "71"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "72"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "73"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "74"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "75"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "76"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "77"], "\[Rule]", "0.019661309874129354`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "78"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "79"], "\[Rule]", "0.019661309874129354`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "80"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "81"], "\[Rule]", "0.019661309874129368`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "82"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "83"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "84"], "\[Rule]", "0.019661309874129358`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "85"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "86"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "87"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "88"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "89"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "90"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "91"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "92"], "\[Rule]", "0.019661309874129368`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "93"], "\[Rule]", "0.019661309874129364`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "94"], "\[Rule]", "0.019661309874129368`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "95"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "96"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "97"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "98"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "99"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "100"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "101"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "102"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "103"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "104"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "105"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "106"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "107"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "108"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "109"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "110"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "111"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "112"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "113"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "114"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "115"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "116"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "117"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "118"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "119"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "120"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "121"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "122"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "123"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "124"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "125"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "126"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "127"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "128"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "129"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "130"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "131"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "132"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "133"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "134"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "135"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "136"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "137"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "138"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "139"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "140"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "141"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "142"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "143"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "144"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "145"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "146"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "147"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "148"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "149"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "150"], "\[Rule]", "0.019661309874129354`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "151"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "152"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "153"], "\[Rule]", "0.019661309874129368`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "154"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "155"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "156"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "157"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "158"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "159"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "160"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "161"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "162"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "163"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "164"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "165"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "166"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "167"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "168"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "169"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "170"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "171"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "172"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "173"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "174"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "175"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "176"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "177"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "178"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "179"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "180"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "181"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "182"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "183"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "184"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "185"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "186"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "187"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "188"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "189"], "\[Rule]", "0.019661309874129354`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "190"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "191"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "192"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "193"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "194"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "195"], "\[Rule]", "0.019661309874129358`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "196"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "197"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "198"], "\[Rule]", "0.019661309874129364`"}],
          ",", 
         RowBox[{
          SubscriptBox["ktilde", "199"], "\[Rule]", "0.01966130987412936`"}], 
         ",", 
         RowBox[{
          SubscriptBox["ktilde", "200"], "\[Rule]", 
          "0.019661309874129364`"}]}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8653969381577187`*^9, 3.86539695053154*^9}, 
   3.865397131606562*^9, 3.865409797503383*^9, {3.8654150511833105`*^9, 
   3.865415056662835*^9}, {3.8997861466517982`*^9, 3.899786153510077*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"5848796f-6584-4e2b-b876-5cbc2a317ad4"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ansFullHomo", "=", 
   RowBox[{"SolveModel", "[", "pointsFull5Homo", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.894621771551372*^9, 3.894621772124641*^9}, {
  3.899786141516303*^9, 3.899786162146639*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"36c71f46-e5e9-4e0a-a1e2-bb5c895e96c6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ValuesToExportFull", "=", 
   RowBox[{"computeValuesToExport", "[", 
    RowBox[{"ansFull", ",", "allParmsFull"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ValuesToExportFullHomo", "=", 
   RowBox[{"computeValuesToExport", "[", 
    RowBox[{"ansFullHomo", ",", "allParmsFullHomo"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ValuesToExportFullHomo", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"MapAt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "<>", "\"\<Homo\>\""}], "&"}], ",", 
     RowBox[{"ValuesToExportFullHomo", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"List", "/@", 
      RowBox[{"Range", "[", 
       RowBox[{"2", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"ValuesToExportFullHomo", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ValuesToExportFullHomo", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"ValuesToExportFullHomo", ",", "None", ",", 
     RowBox[{"{", "1", "}"}]}], "]"}]}], ";", 
  RowBox[{"ValuesToExportFullAndHomo", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"ValuesToExportFull", ",", "ValuesToExportFullHomo", ",", "2"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.899787526359387*^9, 3.899787527993348*^9}, {
   3.899787656567903*^9, 3.899787658279039*^9}, {3.899787764696746*^9, 
   3.8997877900655127`*^9}, {3.899787825179677*^9, 3.899787842081368*^9}, {
   3.899787921794629*^9, 3.8997879522387867`*^9}, 3.899788014326358*^9, {
   3.89979005679001*^9, 3.899790057828803*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"8105a9cb-366e-420e-9bb9-62431eca2746"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"destination", "=", 
   RowBox[{"path", "<>", "\"\</Outputs/Model/Full/modelOutputs.csv\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "destination", ",", "ValuesToExportFullAndHomo", ",", "\"\<Table\>\"", ",", 
    RowBox[{"\"\<FieldSeparators\>\"", "->", "\"\<,\>\""}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.899264099278194*^9, 3.899264110483062*^9}, {
   3.899264174549271*^9, 3.8992642361882687`*^9}, 3.89926587081075*^9, {
   3.899266726427477*^9, 3.8992667267852497`*^9}, {3.899266785213581*^9, 
   3.899266786011243*^9}, 3.8993678538047132`*^9, {3.89936911683537*^9, 
   3.899369125799675*^9}, {3.8994587178247766`*^9, 3.899458789610697*^9}, {
   3.899459275305784*^9, 3.899459283667201*^9}, 3.8994601680668697`*^9, {
   3.899786212022225*^9, 3.899786227392638*^9}, 3.899786354384532*^9, {
   3.89978685708427*^9, 3.89978685770667*^9}, {3.899787817132786*^9, 
   3.899787844951662*^9}, {3.899787963312737*^9, 3.8997879636818237`*^9}, 
   3.899798690950964*^9, {3.902726752037508*^9, 3.9027267740473003`*^9}, 
   3.902824314969915*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"bc3e489a-612c-48e6-8b10-936ee4fce4b6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"destination", "=", 
   RowBox[{
   "path", "<>", "\"\</Outputs/Model/Full/CalibParameters.csv\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"destination", ",", 
    RowBox[{"Prepend", "[", 
     RowBox[{
      RowBox[{"exportCalibvals", "[", 
       RowBox[{"allParmsFull", ",", "ansFull", ",", "inputDataFull"}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"\"\<parm\>\"", ",", "\"\<val\>\"", ",", "\"\<valTarget\>\""}],
        "}"}]}], "]"}], ",", "\"\<Table\>\"", ",", 
    RowBox[{"\"\<FieldSeparators\>\"", "->", "\"\<,\>\""}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.899805058950446*^9, 3.899805069919489*^9}, {
   3.9027267644677877`*^9, 3.902726767515026*^9}, 3.90282431672015*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"96751a3a-61a2-4ee0-a1a7-ab7ef0b284c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compositionResults", "[", 
   RowBox[{
   "initialDistributionFull", ",", "ansFull", ",", "inputDataFull", ",", 
    "allParmsFull", ",", "\"\<Full\>\""}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.9028216193062763`*^9, 3.902821631407908*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"2f1eca14-6974-4c48-a3a2-290cef9570c2"]
},
WindowSize->{915, 916},
WindowMargins->{{Automatic, 216}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9fdb49fd-7ee7-4a4e-a65d-88f2a3c7fd9a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[400, 13, 745, 17, 30, "Input",ExpressionUUID->"d509ae2d-a616-4c07-902a-a4050b1a78ff"],
Cell[1148, 32, 7618, 226, 849, "Input",ExpressionUUID->"066d31e5-d062-4dcb-b2c4-f76cb1956efa"],
Cell[8769, 260, 3078, 67, 140, "Input",ExpressionUUID->"48f5fabd-58c3-43be-ab4f-54118c1795db"],
Cell[11850, 329, 1794, 36, 136, "Input",ExpressionUUID->"34553011-52bc-4042-818c-44a6d4fd97ce"],
Cell[13647, 367, 531, 12, 52, "Input",ExpressionUUID->"1a67d3eb-4615-4cd3-b8a0-2555aee4c337"],
Cell[CellGroupData[{
Cell[14203, 383, 387, 6, 30, "Input",ExpressionUUID->"7a09d0ee-127f-4a1f-a484-d7a2ecc5fa63",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14593, 391, 37971, 920, 1984, "Input",ExpressionUUID->"1b6502f5-23c9-402b-8b26-f36287e3e91b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[52579, 1314, 877, 15, 26, "Input",ExpressionUUID->"8f48848f-0608-4b99-a3e1-45f810033200"],
Cell[53459, 1331, 520, 12, 30, "Input",ExpressionUUID->"d6d1fd31-3a87-439c-96f1-b25b2e64d4f8"],
Cell[CellGroupData[{
Cell[54004, 1347, 574, 11, 30, "Input",ExpressionUUID->"3a4983ad-0986-4137-9f63-58e9e22d7e2d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[54581, 1360, 65773, 1481, 5447, "Input",ExpressionUUID->"bf01bdfd-fec1-48d2-84fb-b098e8c98cc8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[120369, 2844, 2807, 72, 258, "Input",ExpressionUUID->"f67b9cf4-dbcf-487b-b2c1-adc2a1f53ae2"],
Cell[123179, 2918, 2487, 54, 199, "Input",ExpressionUUID->"4e0eff38-1c0b-406c-ae97-c2a7d35aa2b2"],
Cell[125669, 2974, 353, 8, 30, "Input",ExpressionUUID->"4ed24875-6b12-45d9-ae54-073dc2ca3b4b"],
Cell[CellGroupData[{
Cell[126047, 2986, 262, 4, 30, "Input",ExpressionUUID->"6273db3f-6c9c-4e7a-8773-e1a8e353f2a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[126312, 2992, 43634, 1111, 2887, "Input",ExpressionUUID->"5848796f-6584-4e2b-b876-5cbc2a317ad4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[169961, 4106, 323, 6, 26, "Input",ExpressionUUID->"36c71f46-e5e9-4e0a-a1e2-bb5c895e96c6"],
Cell[170287, 4114, 1733, 42, 136, "Input",ExpressionUUID->"8105a9cb-366e-420e-9bb9-62431eca2746"],
Cell[172023, 4158, 1217, 22, 52, "Input",ExpressionUUID->"bc3e489a-612c-48e6-8b10-936ee4fce4b6"],
Cell[173243, 4182, 873, 21, 73, "Input",ExpressionUUID->"96751a3a-61a2-4ee0-a1a7-ab7ef0b284c4"],
Cell[174119, 4205, 361, 7, 30, "Input",ExpressionUUID->"2f1eca14-6974-4c48-a3a2-290cef9570c2"]
}
]
*)

